home *** CD-ROM | disk | FTP | other *** search
/ Apple WWDC 1996 / WWDC96_1996 (CD).toast / Technology Materials / MacOS 8 Resources / Developer Tools / Mac OS 8 Interfaces & Libraries / Interfaces / PInterfaces / SegLoad.p < prev    next >
Encoding:
Text File  |  1996-05-01  |  2.2 KB  |  103 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        SegLoad.p
  3.  
  4.      Contains:    Segment Loader Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Release:    Universal Interfaces 3.0d3 on Copland DR1
  8.  
  9.      Copyright:    © 1984-1996 by Apple Computer, Inc.  All rights reserved.
  10.  
  11.      Bugs?:        If you find a problem with this file, send the file and version
  12.                  information (from above) and the problem description to:
  13.  
  14.                      Internet:    apple.bugs@applelink.apple.com
  15.                      AppleLink:    APPLE.BUGS
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT SegLoad;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __SEGLOAD__}
  28. {$SETC __SEGLOAD__ := 1}
  29.  
  30. {$I+}
  31. {$SETC SegLoadIncludes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __TYPES__}
  35. {$I Types.p}
  36. {$ENDC}
  37.  
  38. {$PUSH}
  39. {$ALIGN MAC68K}
  40. {$LibExport+}
  41.  
  42. {$IFC FOR_SYSTEM7_ONLY }
  43. {$IFC NOT GENERATINGCFM }
  44. {
  45.  CountAppFiles, GetAppFiles, ClrAppFiles, GetAppParms, getappparms, 
  46.  and the AppFile data structure and enums are obsolete. 
  47.  They are still supported for writing old style 68K apps, 
  48.  but they are not supported for CFM-based apps.
  49.  Use AppleEvents to determine which files are to be 
  50.  opened or printed from the Finder.
  51. }
  52.  
  53. CONST
  54.     appOpen                        = 0;                            { Open the Document (s) }
  55.     appPrint                    = 1;                            { Print the Document (s) }
  56.  
  57.  
  58. TYPE
  59.     AppFilePtr = ^AppFile;
  60.     AppFile = RECORD
  61.         vRefNum:                INTEGER;
  62.         fType:                    OSType;
  63.         versNum:                INTEGER;                                { versNum in high byte }
  64.         fName:                    Str255;
  65.     END;
  66.  
  67. PROCEDURE CountAppFiles(VAR message: INTEGER; VAR count: INTEGER);
  68. PROCEDURE GetAppFiles(index: INTEGER; VAR theFile: AppFile);
  69. PROCEDURE ClrAppFiles(index: INTEGER);
  70. PROCEDURE GetAppParms(VAR apName: Str255; VAR apRefNum: INTEGER; VAR apParam: Handle);
  71.     {$IFC NOT GENERATINGCFM}
  72.     INLINE $A9F5;
  73.     {$ENDC}
  74. {$ENDC}
  75. {
  76.  Because PowerPC applications don’t have segments,
  77.  UnloadSeg is unsupported for PowerPC.
  78. }
  79. {$IFC GENERATING68K }
  80. PROCEDURE UnloadSeg(routineAddr: UNIV Ptr);
  81.     {$IFC NOT GENERATINGCFM}
  82.     INLINE $A9F1;
  83.     {$ENDC}
  84. {$ELSEC}
  85. {$ENDC}
  86. {$ENDC}
  87. {$IFC OLDROUTINELOCATIONS }
  88. PROCEDURE ExitToShell;
  89.     {$IFC NOT GENERATINGCFM}
  90.     INLINE $A9F4;
  91.     {$ENDC}
  92. {$ENDC}
  93. {$ALIGN RESET}
  94. {$POP}
  95.  
  96. {$SETC UsingIncludes := SegLoadIncludes}
  97.  
  98. {$ENDC} {__SEGLOAD__}
  99.  
  100. {$IFC NOT UsingIncludes}
  101.  END.
  102. {$ENDC}
  103.